100 REMark "Readme basic"
110 :
120 TK2_EXT
130 PRINT "Wait while Xchange is read from Flp1_"
140 SrcXchange$="Flp1_Xchange"
150 DstXchange$="Ram1_Xchange"
160 DataSpace=12400
170 LF$=CHR$(10)
180 F3$=CHR$(240)
190 FileLength=FLEN(\SrcXchange$)
200 BaseAddress=RESPR(FileLength)
210 LBYTES SrcXchange$,BaseAddress
220 SEXEC DstXchange$,BaseAddress,FileLength,DataSpace
230 CLS
240 PRINT "When Xchange is up and running"\"press 'Alt-Q'"\"(i.e. hold down the 'Alt' key"\"and tap the 'Q' key once)"
250 INPUT \"Press ENTER",Dummy$
260 ALTKEY "q",F3$&"nqui"&LF$&"Readme"&LF$&F3$&F3$&"fi_Flp1_Readme.exp"&LF$&LF$
270 EW DstXchange$
